MacWorld 1999 September (IDG)/Sep99.iso/Shareware World/Comms & Internet/LinkConverter 1.1.2/Dialog Director v0.7/Res Utils Examples/Set Res Info.as

Text File | 1996-12-02 | 347 b | 15 lines | [TEXT/ToyS]

on run
    set f to choose file of type "DiDi"
    set rf to res open f with write permission
    try
        set inf to res get info rf type "reco" id 1000
        set res name of inf to "Testing"
        set res attributes of inf to 16 + 32
        res set info rf type "reco" id 1000 to inf
    on error number n
        res close rf
        error number n
    end try
    res close rf
    inf
end run